.DO External 

.LSTOH 

.FIN 

;> 

;> This file describes all the definitions < Constants, Uars, I/O, 

;> etc. > that is used in the Widget Firmware. 

;> 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Z8 Working Register/ Interna I Ram Conventions 
> 



> 

> Working Register Set $0: Registers 0:3 are used as I/O ports 

'> 

>>>>>>>>>>>>>>>>>>>>>>>> 



Register 


Use 





I/O: Port { Output } 




Bit 0: fldrS 




Bit 1: fldr9 




Bit 2: fldrlO/RWI- 




RWI : Reduced Write Cuurent 




Bit 3: fldrll/PC- 




PC: Pre-Compensation 




Bit 4: Servo JReset- 




Bit 5: Format Fnable- 




Bit 6: 28_Test- 




Bit ?: Read-Header 


1 


I/O: Port 1 { input/Output ) 



> Bit 0: fldrO/flpple_BusO 

> Bit 1: fldr1/flpple_Bus1 

> Bit 2: fldr2/flpple_Bus2 

> Bit 3: Rdr3/flpple_Bus3 

> Bit 4: fldr4/flpple_Bus4 

> Bit 5: fldr5/RppleJBus5 

> Bit 5: fldr6/flpple_Bus6 

> Bit 7: fldr7/flpple_Bus7 
> 

> 2 I/O: Port 2 { input/Output > 

> Bit 0: Start- 

> Bit 1: EccError- 

> Bit 2: Command { Input > 

> Bit 3: Busy 

> Bit 4: ilselO 

> Bit 5: Msell 

> Bit 5: SloRdy { Input > 

> Bit 7: DiskJJW- 
> 

> 3 I/O: Port 3 { Input /Output } 

> Bit 0: SioOataIn { Input > 

> Bit 1: Sector { Input > 

> Bit 2: Index { Input } 



>>>>>>>>>>>>>>>>>>>>>>>> 

Page 
>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Misc. Conventions 
> 



Bit 3: SectorJDone 

Bit 4: DataJlemory-JSelect 

Bit 5: Head_Select 

Bit 6: Z8_RWJClock 

Bit 7: SioDataOut 



1 . Each mcij or rout i ne is preceded by a psuedo-eng ! i sh 
"Pascal" like explanation of the inputs, outputs, 
and algorithm^ as well as register assignments. 



2. Keywords: 
BOOLEfiH 
BIT 
BYTE 
WORD 
PTR 



True/False values: $01 if true, $00 if false 
Single bit values: 1 if true, if false 
8 bit values 
16 bit values 
15 bit address 



>>>>>>>>>>>>>>>>>>>>>>>> 

.DO LlstOefs 

.LSTON 

.Page 

.FIH 
RamOffset .Equ $1000 
EpromOffset .Equ $1000 



>>>>>>>>>>>>>>>>>>>>>>>> 

> Constant Definitions: I/O Stuff 



Porto .Equ 

Porti .Equ 

Port2 .Equ 

Ports .Equ 

;> Port Defs: 

TimeOut .Equ 

EccTest .Equ 

RMI .Equ 

PC .Equ 

ServoRst . Equ 

Not_ServoRst .Equ 

Not_FfflenL . Equ 

FmenL .Equ 

ficEraseL .Equ 

Hot_ficEraseL .Equ 

ZTestL . Equ 

Not_2TestL .Equ 

RdHdrH .Equ 

Not_RdHdrH .Equ 

;> Port 1 Defs: 
; > { none } 



$01 
$02 
$04 
$08 
$00 
$10 
$20 
$00 
$20 



$40 
$80 



; i /O Port def i n i t i ons 



\l/ 



;harduiare timeout flag 
;fictlve Low to Ecc gate arrm^ chip 
; Reduced Write Current { active low } 
; Write Pre-compensation { active low } 
;Servo Reset { active low > 

; Format Enable { active low } 



;Z8 Test switch { 1=norffial, 0=test > 

; State Machine: Ignore Header 
{ active hi } 



> Port 2 Defs: 



StartL 


.Equ 


$00 


NotJStartL 


.Equ 


$01 


EccError 


.Equ 


$00 


Hot_EccError 


.Equ 


$02 


Cmd 


.Equ 


$04 


Bsy 


.Equ 


$08 


Not_Bsy 


.Equ 


$00 


rise 10 


.Equ 


$10 


Msell 


.Equ 


$20 


flppleJIem 


Equ 


$00 


ZSJIem 


.Equ 


$10 


DiskJIem 


.Equ 


$20 


Z8_flpple 


-Equ 


$30 


SioRdy 


.Equ 


$40 


DrwL-Read 


.Equ 


$80 


DrmLJrlr \ te 


.Equ 


$00 


P2t_!ri 


.Equ 


$02 


P22_ln 


.Equ 


$04 


P26_!n 


-Equ 


$40 


;> Port 3 Defs: 






SectorMark 


.Equ 


$02 


1 ndexMark 


• Equ 


$04 


SectDnL 


.Equ 


$08 


Dm 


.Equ 


$10 


HsO 


.Equ 


$20 


Zrwck 


.Equ 


$40 



; State Machine: Start Execution 
; { active low ) 

jFlags Ecc circuitry { active low > 



;flpple i /o signal 
; Apple i/o signal 



CMD { active hi > 
BSV { active hi > 



; Memory Select bit 
; Memory Select bit 1 

;Mem < — > Rpple 

;Mem < — > Z8 

;Mem < — > State Machine < Disk > 

;Z8 <--> Apple 

Servo's Sio is ready { active hi } 
State Machine: Disk Read /Write 

{ Write active lo } 

Port 2 Bit 1 is an input 
Port 2 Bit 2 is an input 
Port 2 Bit 6 is an input 



Sector Mark from drive { active hi > 
Index Mark from drive { active hi } 
Sector Done { active low } 
Data Memory selected { active low ) 
Head select { 0=headJO, 1=head_1 > 
Z8 test clock for state machine 



.Page 



j >>>>>>>>>>>>>>>>>>>>>>>> 

;> 

; > Constant Def i n i t i ons : Reg i s ters 

;> 



Wrk_lo 


.Equ 


$00 


; Work i ng 


regs set = 


I/O and scrat 


WrkJSys 


-Equ 


$10 


; Work i ng 


regs set 1 = 


System 


l4rk_Except 


.Equ 


$20 


; Working 


regs set 2 = 


Exception set 


Wrk_JSys2 


.Equ 


$30 


; Working 


regs set 3 = 


System2 


Mrk_Scr 


.Equ 


$40 


; Work i ng 


regs set 4 = 


Scratch set 


MrkJCntrl 


.Eqi4 


$F0 


; Work i ng 


regs set F = 


control set 


r-0 


.Equ 





; working 


register 




r1 


.Equ 


1 


; working 


register 1 




r2 


-Equ 


2 


; work i ng 


register 2 




r3 


.Equ 


3 


; working 


register 3 




r4 


.Equ 


4 


; work i ng 


register 4 




r5 


.Equ 


5 


; working 


register 5 




r6 


.Equ 


6 


; work i ng 


register 6 




r7 


.Equ 


7 


; work i ng 


register 7 




r8 


.Equ 


8 


; working register 8 




r9 


.Equ 


9 


; working register 9 




rA 


.Equ 


$A 


; work i ng 


register A 




rB 


.Equ 


$B 


: working register B 




rC 


.Equ 


$C 


; work i ng 


register C 




rD 


.Equ 


$D 


; working 


register D 




rE 


-Equ 


$E 


; work i ng 


register E 





rF 



Equ $F 



HiJR«ii_Reg .Equ 


$20 


Lo_F!«.i!_Reg .Equ 


$21 


PSector .Equ 


$22 


Free BlfTsl .Equ 


$23 


Excp t_S ta t us .Equ 


$24 


Recovery 


Equ 


$80 


SprTbI_Warn 


Equ 


$40 


BufJ3amage 


Equ 


$20 


PmrRst 


Equ 


$10 


HZero-JSlat 


Equ 


$08 


LedJStat 


Equ 


$01 


SffTst-Result .Equ 


$25 


Ram J'a i 1 


Equ 


$80 


Eprom JFa i 1 


Equ 


$40 


DIskJSpeed 


Equ 


$20 


Seruo_Fai 1 


Equ 


$10 


SectorjCnt 


Equ 


$08 


State_Fai! 


Equ 


$04 


Ruj_Fai 1 


Equ 


$02 


Ho_SprTbl 


Equ 


$01 


RdStat .E 


Iqu 


$26 


RdErrCnt .E 


Zqu 


$27 


UrStat .E 


iqu 


$28 


WrErrCnl .E 


Equ 


$29 


SeekCount .E 


Equ 


$2fl 


PwrFlgO .E 


Equ 


$2C 


PwrPlgl .£ 


Equ 


$20 


PiurFlg2 .E 


Equ 


$2E 


P«.«rF!g3 .E 


Equ 


$2F 


DmtJCounter .£ 


Equ 


$35 


Scr_Cntr J 


Equ 


$38 


Cur-jCyl .E 


Equ 


$50 


Cylinder .E 


Equ 


$52 


Head .E 


Equ 


$54 


Sector .E 


Equ 


$55 


DiskSlalus .E 


Equ 


$55 


On_Track 


Equ 


$80 


RdHdrRecal 


Equ 


$40 


WrjDp 


Equ 


$20 


Parked 


Equ 


$10 


Long Seek 


Equ 


$08 


MultiBlk 


Equ 


$04 


SeekCompiete 


Equ 


$02 


OffsetJOn 


Equ 


$01 


Seek-Type .E 


Equ 


$57 


Da ta_Type . E 


Equ 


$58 


Unused-Reg . E 


Equ 


$59 


BIkStat .E 


Equ 


$5fi 


CachSeek 


Equ 


$80 


CachHdChg 


Equ 


$40 



; working register F 
; ho I ds cy I i nder va I ue for RW I and PC 



; last phsyical sector 

; pointer to self test routine 

; except I on status register 

; global recovery bit { active hi } 

; spare table has is almost full 

jStMach entry buffer is not zero 

;Uidget mas power reset 

; last system status was non-zero 

; state of LED on controller 

; results of self test 
;wrlteable memory failure 
;Eprom checkbyte mismatch 
;Disk not up to speed 
; Servo is not healthy 
;Not enough sectors! 
; State machine not healthy 
; can ' t read/wr i te I 
;ho Spare Table found! 

; status of last read operation 

; number of retries of last read 

; status of last write operation 

; number of retries of last write 

; number of seeks since last arm swing 

; power on flag 



; double register counter 
; double register counter 



; current state of some disk params 
; software 'on- track' flag 
;read the header after a recal operation 
; current access is for a ourite 
; heads are currenly parked 
jdo 2 small seeks for 1 long one 
jMultiBlock semaphore 
; head/arm is not in motion 
;flutoJOffset is currently on 

;Seek w/wo flu to-Offset 
;Spare Table or User Block 
;ref lection of bank register 

; current state of cache logical block 
;a seek is needed for this block 
;a head change is needed for this block 



S_Block 


.Equ 


$01 


B-Block 


-Equ 


$02 


Cache- Index 


-Equ 


$5B 


Lst_HiCyl 


.Equ 


$5C 


Lst loCyl 


.Equ 


$5D 


Lst_Head 


.Equ 


$5E 


Lst^ector 


.Equ 


$5F 


P01in_lrocige 


.Equ 


$04 


P3in_ Image 


-Equ 


$05 


POIiRjStHach 


.Equ 


$05 


PSm^tMach 


.Equ 


$07 


DiR_ria£k 


.Equ 


$08 


StartJlQsk 


.Equ 


$09 


ScrRegO 


.Equ 


$40 


ScrReg 1 


.Equ 


$41 


ScrReg2 


.Equ 


$42 


ScrRegS 


.Equ 


$43 


ScrReg4 


.Equ 


$44 


ScrRegS 


.Equ 


$45 


ScrReg6 


Equ 


$46 


ScrReg? 


.Equ 


$47 


ScrRegS 


-Equ 


$48 


ScrRegQ 


-Equ 


$49 


ScrRegfi 


.Equ 


$4R 


ScrRegB 


.Equ 


$4B 


ScrRegC 


.Equ 


$4C 


ScrRegD 


.Equ 


$40 


ScrRegE 


.Equ 


$4E 


ScrRegF 


.Equ 


$4F 


R240 


.Equ 


240 


R241 


-Equ 


241 


R242 


.Equ 


242 


R243 


.Equ 


243 


R244 


.Equ 


244 


R245 


.Equ 


245 


R246 


.Equ 


245 


R24? 


.Equ 


247 


R248 


.Equ 


248 


R249 


■ Equ 


249 


R250 


.Equ 


250 


R251 


.Equ 


251 


R252 


.Equ 


252 


R253 


.Equ 


253 


R254 


.Equ 


254 


R255 


.Equ 
.Page 


255 


; >>>>>>>>>>>> 


?>>>>>>>>> 


>> 


> 

; > These 
; > 


Symbols ar^ Pn 


■ > 

;> Sio 


.Equ 




; > Tflir 


.Equ 




;> 1\ 


.Equ 




l> Prel 


.Equ 




:> TO 


Equ 





;thfs block Is a spare block 
;this block is a bad block 

; I ndex i n to cache assum i ng sequen t i a I search 

; previous seek address 



; Scratch 
; Scratch 
; Scratch 
; Scratch 
; Scratch 
; Scratch 
; Scratch 
; Scratch 
; Scratch 
; Scratch 
; Scratch 
; Scratch 
; Scratch 
; Scratch 
; Scratch 
; Scratch 



reg 
reg 
reg 
reg 
reg 
reg 
reg 
reg 
reg 
reg 
reg 
reg 
reg 
reg 
reg 
req 



ster 
ster 
ster 
ster 
ster 
ster 5 
ster 6 
ster 7 
ster 8 
ster 9 
ster^ R 
ster B 
ster C 
ster D 
ster E 
ster F 



Sio Register 
T I flier Mode Register 
Counter /Timer Register 1 
T1 Prescaler Load Register 
Counter/Timer Register 
TO Prescaler Load Register 
Port 2 Mode Register 
Port 3 Mode Register 
Port and 1 mode Register 
Interrupt Priority Register 
Interrupt Request Register 
Interrupt Mask Register 
Cpu Flags Register 
l-torking Register Set Pointer 
Hi -Byte of Stack Pointer 
; Low-Byte of Stock Pointer 



240 
241 
242 
243 
244 



;Sio Register 

;Tin>er Mode Register 

; Counter/Timer Register 1 

;T1 Prescaler Load Register 

; Counter /Timer Register 



; > 


PreO 


;> 


P2m 


; > 


P3ffi 


; > 


POlm 


; > 


Ipr 


; > 


Irq 


;> 


IffiT 


; > 


Flags 


;> 


Rp 


; > 


Sph 


; > 
• > 


Spl 


• \ 


'. S -i. S S -i. 



Equ 


245 


Equ 


246 


Equ 


247 


Equ 


248 


Equ 


249 


Equ 


250 


Equ 


251 


Equ 


252 


Equ 


253 


Equ 


254 


Equ 


255 



;T0 Prescaler Load Register 
;Port 2 Mode Register 
;Port 3 Mode Register 
;Port and 1 mode Register 
; Interrupt Priority Register 
; Interrupt Request Register 
; Interrupt Mask Register 
;Cpu Flags Register 
; Working Register Set Pointer 
;Hi-Byte of Stack Pointer 
; Low-Byte of Stack Pointer 



>>>>>>>>>>>>>>>>>>>>>>>> 



Page 



;> 

;> Constant Definitions: Control Register Stuff 

;> 

■>>>>>>>>>>>>>>>>>>>>>>>> 



;> Control Register 240 < $F0 ): Serial I/O register 
;> { Read: Receiue Data ) 

;> { Write: Transmit Data } 

;> Control Register 241 < ^1 >: Timer Mode Register 



; > Tout Modes : B i ts 7 and 6 

TOJOut .Equ $40 

T1_Dut .Equ $80 

IntJQut .Equ $C0 

;> Tin Mode: Bits 5 and 4 



ExtJCIk 
Gate_Clk 
Non_Retrig 
Re trig 


.Equ 
. Equ 
.Equ 
.Equ 


$00 
$10 
$20 
$30 


TiJCntEn 
TiJCntDls 


.Equ 
.Equ 


$08 
$00 


T1_Load 


.Equ 


$04 


TO-JCntEn 
TO-CntOis 


.Equ 
.Equ 


$02 
$00 



;Port 3, bit 6 gets timer out 
;Port 3, bit 6 gets timer 1 out 
;Port 3^ bit & gets system clock 



use external clock on timer 

use internal clock on timer 
; load T1 after a high- low trans 
; I ike Non-Retrig^ but load on all trans. 

; enable T1 counting operations 



;Load Tt 

; enable TO counting operations 



TO_Load 



Equ $01 



;Load TO 



;> Control Register 242 < $F2 ): Counter/Timer Register T1 

;> { Write: Initial Malue } 

;> { Read: Current CiDunt Uaiue > 

;> Control Register 243 < $F3 >: T1 Prescaler Load Register < Pre 1 > 

Single-Pass .Equ $00 

Mod-n .Equ $01 

T1_lnt_JCIk .Equ $02 

T1_ExtJCIk .Equ $00 
;> Bits 7:2 oir^ used to provide a 6-bit binary Prescale Ualue 

;> Control Register 244 ( $F4 ): Counter/Timer Register TO 

; > i Wr i te : I n i 1 1 a I Ua I ue ) 

:> { Read: Current Cc«unt Ualue } 



;> Control Register 245 < $F5 >: TO Prescaler Load Register ( Pre ) 
;> { Same as Pre 1, but no external clock } 

;> Control Register 246 < $F6 ): Port 2 Mode < P2m> 

;> When a bit of P2ib is set^ the corresponding bit in Port 2 is defined 

;> as an input, if reset then the corresponding bit for Port 2 is 

;> defined as an output. 



;> Control Register 247 < $F7 


OperxJ3ra 1 n 


.Equ 


$00 


Totem_Pol 


.Equ 


$01 


B2J5_lo 


.Equ 


$00 


B? f>_Hs 


-Equ 


$04 


B3_4_lo 


.Equ 


$00 


B3_4_ldm 


.Equ 


$10 


B3_4_Hs 


.Equ 


$18 


BlJ6_{o 


.Equ 


$00 


BlJ6_Hs 


.Equ 


$20 


BO_?_lo 


.Equ 


$00 


B0_7-Ser 


.Equ 


$40 


ParJOn 


.Equ 


$80 


Par_Off 


.Equ 


$00 


;> Control Reg 


ster 24S 


! < $F8 


POJOSJOut 


.Equ 


$00 


POJ03_ln 


.Equ 


$01 


P0J[}3_fldr 


.Equ 


$02 


Stack Fxt 


.Equ 


$00 


Stack- In 


.Equ 


$04 


P1_0ut 


.Equ 


$00 


P1_ln 


.Equ 


$08 


P1_Rdr 


.Equ 


$10 


P1_Tri 


.Equ 


$18 


Mem Fxt 


• Equ 


$20 


MemJiorm 


.Equ 


$00 


P0_47jQut 


.Equ 


$00 


P0_47_ln 


.Equ 


$40 


P0_47_fldr 


.Equ 


$80 



): Port 3 Mode ( P3m > 



Bit 2= input. 
Bit 2=DfiU0-, 
Bit 3= input. 
Bit 3= input. 
Bit 3=DflU1-, 
Bit 1=Tin , 
Bit 1=Dfly2-, 
Bit 0= Input, 
Bit 0=Sio in, 
Par i ty On 
; Parity Off 



Bit 5=output 
Bit 5=RDV0- 
Bit 4=output 
Bit 4=DM- 
Bit 4=RDV1- 
Bit 6=Tout 
Bit 6=RDV2- 
Bit ?=output 
Bit 7=Sio out 



Port and 1 Mode < POIro > 

;seleet Port 0, bits 0:3 as outputs 

; select Port 1, bits 0:3 as inputs 

;se!ect PO, bits 0:3 qs adr bits 8:11 

; select external stack 

; select internal stack 

; select Port 1 as outputs 

; select Port 1 as inputs 

; select Port 1 as adr /da to bits 0:7 

;put port 1 into Tri -State 

; extended memory timing 

; norma I memory timing 

; set set Port 0, bits 4:7 as outputs 

; select Port 0, bits 4:7 as inputs 

;select PO, bits 4:7 as adr bits 12:15 

;> Control Register 249 < $F9 >: interrupt Priority Register < Ipr > 
;> { To Be Established } 

;> Control Register 250 C $Ffi >: Interrupt Request Register C Irq > 
; > { To Be Estab I i shed ) 

;> Control Register 251 < $FB >: Interrupt Mask Register < fmr > 
;> < To Be Established } 

;> Control Register 252 < $FC ): Flag Register (Flags > 
;> { To Be Established > 

.LSTOFF 



